perm filename CYCDRD.LAP[3,LMM] blob
sn#037500 filedate 1973-04-22 generic text, type T, neo UTF8
(DEFPROP CYCDRDFNS (CYCDRDFNS RTLIN) VALUE)
(LAP RTLIN SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(JUMPN 3. TAG15)
(MOVEI 1. (QUOTE T) S)
(JRST 0. TAG11)
TAG15 (HLRZ@ 1. -11. P)
(HLRZ@ 1. 1.)
(HLRZ@ 2. -11. P)
(HRRZ@ 2. 2.)
(MOVEM 1. -4. P)
(MOVEM 2. -5. P)
(CALL 1. (E NODE) S)
(MOVEM 1. 0. P)
(MOVE 1. -5. P)
(CALL 1. (E NODE) S)
(MOVEI 2. (QUOTE 20.))
(MOVEM 1. -1. P)
(MOVE 1. -4. P)
(CALL 2. (E *PLUS) S)
(CALL 1. (E NODE) S)
(MOVEI 2. (QUOTE 20.))
(MOVEM 1. -2. P)
(MOVE 1. -5. P)
(CALL 2. (E *PLUS) S)
(CALL 1. (E NODE) S)
(MOVE 4. 1.)
(MOVE 3. -2. P)
(MOVE 2. -1. P)
(MOVEM 1. -3. P)
(MOVE 1. 0. P)
(CALL 4. (E SLOPE) S)
(MOVE 4. -3. P)
(MOVE 3. -2. P)
(MOVE 2. -1. P)
(MOVEM 1. -7. P)
(MOVE 1. 0. P)
(CALL 4. (E YINTCP) S)
(MOVEM 1. -8. P)
(MOVEI D (QUOTE T) S)
(PUSH P D)
(PUSH P -11. P)
TAG1 (MOVE 1. 0. P)
(JUMPE 1. TAG10)
(HLRZ@ 1. 0. P)
(MOVE 2. 1.)
(MOVEM 1. -8. P)
(MOVE 1. -13. P)
(CALL 2. (E CONCT) S)
(HLRZ@ 2. -8. P)
(HLRZ@ 2. 2.)
(HLRZ@ 3. -8. P)
(HRRZ@ 3. 3.)
(MOVEM 1. -11. P)
(MOVEM 2. -6. P)
(MOVEM 3. -7. P)
(MOVE 1. 2.)
(CALL 1. (E NODE) S)
(PUSH P 1.)
(MOVE 1. -8. P)
(CALL 1. (E NODE) S)
(MOVEI 2. (QUOTE 20.))
(PUSH P 1.)
(MOVE 1. -8. P)
(CALL 2. (E *PLUS) S)
(CALL 1. (E NODE) S)
(MOVEI 2. (QUOTE 20.))
(PUSH P 1.)
(MOVE 1. -10. P)
(CALL 2. (E *PLUS) S)
(CALL 1. (E NODE) S)
(PUSH P 1.)
(MOVE 4. 1.)
(MOVE 3. -1. P)
(MOVE 2. -2. P)
(MOVE 1. -3. P)
(CALL 4. (E SLOPE) S)
(HRRZ@ 2. 1.)
(PUSH P 1.)
(HLRZ@ 1. -14. P)
(CALL 2. (E *TIMES) S)
(HRRZ@ 2. -14. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(HLRZ@ 1. -3. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVEM 1. 0. P)
(CAIN 1. (QUOTE 0.))
(JRST 0. TAG4)
(MOVE 1. -18. P)
(JUMPE 1. TAG28)
(MOVEI 1. (QUOTE T) S)
(JRST 0. TAG24)
TAG28 (MOVE 1. -21. P)
(JUMPE 1. TAG29)
(MOVEI 1. (QUOTE T) S)
(JRST 0. TAG24)
TAG29 (MOVE 2. -9. P)
(MOVE 1. -10. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -6. P)
(PUSH P 1.)
(MOVE 1. -6. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -6. P)
(PUSH P 1.)
(MOVE 1. -6. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -5. P)
(PUSH P 1.)
(MOVE 1. -9. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -12. P)
(PUSH P 1.)
(MOVE 1. -14. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -15. P)
(PUSH P 1.)
(MOVE 1. -13. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -13. P)
(PUSH P 1.)
(MOVE 1. -15. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -7. P)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -3. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(SUB P (C 2. 0. 2. 0.))
(MOVEM 1. 0. P)
(MOVE 1. -9. P)
(CAMN 1. -10. P)
(JRST 0. TAG3)
(MOVE 1. -6. P)
(CAMN 1. -5. P)
(JRST 0. TAG2)
(MOVE 3. -5. P)
(MOVE 2. -6. P)
(MOVE 1. 0. P)
(CALL 3. (E CLCINTA) S)
(JUMPE 1. TAG37)
(MOVE 3. -10. P)
(MOVE 2. -9. P)
(MOVE 1. 0. P)
(CALL 3. (E CLCINTA) S)
(JUMPN 1. TAG36)
TAG37 (TDZA 1. 1.)
TAG36 (MOVEI 1. (QUOTE T) S)
(JRST 0. TAG24)
TAG2 (MOVE 3. -10. P)
(MOVE 2. -9. P)
(MOVE 1. 0. P)
(CALL 3. (E CLCINTA) S)
(JUMPE 1. TAG39)
(MOVEI 1. (QUOTE T) S)
(JRST 0. TAG24)
TAG39 (MOVE 2. -11. P)
(MOVE 1. -12. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -4. P)
(PUSH P 1.)
(MOVE 1. -4. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -4. P)
(PUSH P 1.)
(MOVE 1. -8. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -7. P)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -14. P)
(PUSH P 1.)
(MOVE 1. -12. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -13. P)
(PUSH P 1.)
(MOVE 1. -15. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -11. P)
(PUSH P 1.)
(MOVE 1. -13. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -9. P)
(PUSH P 1.)
(MOVE 1. -9. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -3. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(SUB P (C 2. 0. 2. 0.))
(MOVEM 1. 0. P)
(MOVE 3. -3. P)
(MOVE 2. -4. P)
(CALL 3. (E CLCINTA) S)
(JRST 0. TAG24)
TAG3 (MOVE 3. -5. P)
(MOVE 2. -6. P)
(MOVE 1. 0. P)
(CALL 3. (E CLCINTA) S)
(JUMPE 1. TAG44)
(MOVEI 1. (QUOTE T) S)
(JRST 0. TAG24)
TAG44 (MOVE 2. -11. P)
(MOVE 1. -12. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -4. P)
(PUSH P 1.)
(MOVE 1. -4. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -4. P)
(PUSH P 1.)
(MOVE 1. -8. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -7. P)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -14. P)
(PUSH P 1.)
(MOVE 1. -12. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -13. P)
(PUSH P 1.)
(MOVE 1. -15. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(MOVE 2. -11. P)
(PUSH P 1.)
(MOVE 1. -13. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -9. P)
(PUSH P 1.)
(MOVE 1. -9. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -3. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E *DIF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(SUB P (C 2. 0. 2. 0.))
(MOVEM 1. 0. P)
(MOVE 3. -12. P)
(MOVE 2. -11. P)
(CALL 3. (E CLCINTA) S)
(JRST 0. TAG24)
TAG4 (MOVE 4. -3. P)
(MOVE 3. -4. P)
(MOVE 2. -5. P)
(MOVE 1. -6. P)
(CALL 4. (E YINTCP) S)
(HRRZ@ 2. 1.)
(MOVEM 1. -1. P)
(HLRZ@ 1. -17. P)
(CALL 2. (E *TIMES) S)
(HRRZ@ 2. -17. P)
(PUSH P 1.)
(HLRZ@ 1. -2. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(EXCH 1. 0. P)
(CALL 2. (E *DIF) S)
(SUB P (C 1. 0. 1. 0.))
(MOVEM 1. 0. P)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG51)
(HRRZ@ 1. -17. P)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG49)
(HRRZ@ 1. -1. P)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG49)
(MOVE 1. -9. P)
(CAMN 1. -6. P)
(JRST 0. TAG49)
TAG51 (MOVEI 1. (QUOTE T) S)
(JRST 0. TAG24)
TAG49 (MOVE 1. -9. P)
(CAME 1. -10. P)
(JRST 0. TAG57)
(MOVE 2. -12. P)
(MOVE 1. -11. P)
(CALL 2. (E *MIN) S)
(MOVE 2. -3. P)
(PUSH P 1.)
(MOVE 1. -5. P)
(CALL 2. (E *MAX) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E GEQ) S)
(JUMPN 1. TAG58)
(MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E *MIN) S)
(MOVE 2. -12. P)
(PUSH P 1.)
(MOVE 1. -12. P)
(CALL 2. (E *MAX) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E GEQ) S)
(JUMPN 1. TAG58)
(TDZA 1. 1.)
TAG58 (MOVEI 1. (QUOTE T) S)
(JRST 0. TAG56)
TAG57 (MOVE 2. -10. P)
(MOVE 1. -9. P)
(CALL 2. (E *MIN) S)
(MOVE 2. -5. P)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 2. (E *MAX) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E GEQ) S)
(JUMPN 1. TAG62)
(MOVE 2. -5. P)
(MOVE 1. -6. P)
(CALL 2. (E *MIN) S)
(MOVE 2. -10. P)
(PUSH P 1.)
(MOVE 1. -10. P)
(CALL 2. (E *MAX) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E GEQ) S)
(JUMPN 1. TAG62)
(TDZA 1. 1.)
TAG62 (MOVEI 1. (QUOTE T) S)
TAG56
TAG24 (MOVEM 1. -8. P)
(SUB P (C 7. 0. 7. 0.))
(JUMPE 1. TAG18)
TAG5
TAG6
TAG7
TAG8
TAG9 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG1)
TAG10 (MOVE 1. -1. P)
(JRST 0. TAG17)
TAG18 (MOVEI 1. (QUOTE NIL))
TAG17 (SUB P (C 2. 0. 2. 0.))
TAG11 (SUB P (C 13. 0. 13. 0.))
(POPJ P)
NIL